home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 May / 64er_Magazin_88-05_1988_Markt__Technik_de_Side_A.d64 / sea and seamews (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  631b  |  37 lines
  1. 10 s=54272
  2. 20 fori=0to24:pokes+i,0:next
  3. 40 pokes+5,15:pokes+6,240
  4. 45 pokes+12,2:pokes+13,2*16
  5. 50 pokes+19,32+7:pokes+20,7*16+9
  6. 60 pokes+24,15
  7. 70 poke53280,6:poke53281,6
  8. 80 print"[147][155]sound# 1"
  9. 81 print"[163][163][163][163][163][163][163][163]"
  10. 85 print"sea and seamews"
  11. 90 fort=1to1000:next
  12. 100 pokes+4,129:pokes+11,129
  13. 110 pokes+1,10:pokes+8,255
  14. 120 pokes+23,241
  15. 130 pokes+24,15+16
  16. 135 fort=1to500:next
  17. 140 fori=40to200step3
  18. 150 pokes+22,i:pokes+1,i-(i/50)^2
  19. 160 fort=1to3:next
  20. 165 ifint(rnd(1)+.02)=1thengosub300
  21. 170 next
  22. 180 fort=1to300:next
  23. 190 fori=180to30step-2
  24. 200 pokes+22,i:pokes+1,i+20
  25. 210 fort=1to10:next
  26. 215 ifint(rnd(1)+.02)=1thengosub300
  27. 220 next
  28. 230 fort=1to3000:next
  29. 240 goto140
  30. 300 pokes+15,45+int(rnd(1)+.4)
  31. 310 pokes+16,65:pokes+17,50
  32. 320 pokes+18,65
  33. 330 forii=170to0step -4
  34. 340 pokes+14,ii:next
  35. 350 pokes+18,64
  36. 360 return
  37.